On Error Resume Next  
Dim RA3SN(20),Num,cdkey  
RA3SN(1) = "ZMHR-L64D-9RS5-89RF-6RLD"  
RA3SN(2) = "6ZD5-RAT2-P3FU-8P3K-VRLD"  
RA3SN(3) = "LNVM-NGST-P2BT-3P2Z-TRLD"  
RA3SN(4) = "7833-UXDT-9BYE-49B4-GRLD"  
RA3SN(5) = "GM5D-RVFF-NSNG-HNSB-HRLD"  
RA3SN(6) = "Y7TK-ZPNU-U47P-QU4U-PRLD"  
RA3SN(7) = "9ZZ9-HXET-ZYHF-UZY6-GRLD"  
RA3SN(8) = "Z3UU-5A35-L275-WL2U-5RLD"  
RA3SN(9) = "ECJJ-58RR-DU6T-7DUT-TRLD"  
RA3SN(10) = "DB8Y-44PY-XCNQ-GXCU-RRLD"  
RA3SN(11) = "ND8Y-BRND-N3JP-2N37-QRLD"  
RA3SN(12) = "D7BT-PJTJ-GGNU-7GGB-VRLD"  
RA3SN(13) = "EB33-NYRY-7VAS-Z7VX-SRLD"  
RA3SN(14) = "5VAS-N9SN-NKVT-ANKZ-URLD"  
RA3SN(15) = "CCL4-X27H-7VR8-97VE-9RLD"  
RA3SN(16) = "U5JJ-58HF-VG6K-RVG8-MRLD"  
RA3SN(17) = "2LCL-2Y4G-9Z95-B9ZW-5RLD"  
RA3SN(18) = "QVXX-6BRT-NGLS-DNG9-TRLD"  
RA3SN(19) = "EB33-NYRY-7VAS-Z7VX-SRLD"  
RA3SN(20) = "APNE-5RDX-PTME-8PTA-FRLD"  
Randomize  
Num = Int((20 * Rnd) + 1)  
cdkey = RA3SN(Num)  
cdkey = Replace(cdkey,"-","")  
Set Sh = CreateObject("WScript.Shell")  
Sh.RegDelete "HKLM\SOFTWARE\Electronic Arts\Electronic Arts\Red Alert 3\ergc\"  
Sh.RegWrite "HKLM\SOFTWARE\Electronic Arts\Electronic Arts\Red Alert 3\ergc\",cdkey,"REG_SZ"